cOldExact = Set("Exact")
Set Exact On
ADatabases(aBDs)
If Type('aBDs') = 'U'
	Open Database 'data\dados'
Else
	If Ascan('aBDs','DADOS',1) = 0
		Open Database 'data\dados'
	EndIf
EndIf 
Set Database To dados
Set Exact &cOldExact